home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / S-Z / Special Delivery™ Demo.cpt / Special Delivery™ Demo / Claris / Claris Translators / EPSF.rsrc / PS_106 < prev    next >
Text File  |  1991-06-19  |  380b  |  13 lines
  1. %%BeginProcSet : A1
  2. /A1 {msave
  3. pbox right get pbox left get sub abs dup
  4. pbox bottom get pbox top get sub abs dup 3 -1 roll
  5. lt {exch dup 3 -1 roll exch div 1 exch}
  6. {dup 3 -1 roll exch div 1} ifelse scale 
  7. 0 0 3 -1 roll 2 div 5 -1 roll -90 add 5 -1 roll -90 add arcn
  8. mrestore} bind def
  9. %%EndProcSet
  10. %%BeginProcSet : A2
  11. /A2 {msave 0 0 moveto A1 closepath mrestore} def
  12. %%EndProcSet